home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GeoThek Programme (19xx)(-)(de)[gt106b].d64 / geolinker (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  48 lines
  1. 0 GOTO16
  2. 2 HI=INT(A/256):LO=A-HI*256:PRINT#15,"M-R"CHR$(LO)CHR$(HI):GET#15,A$:A=ASC(A$+CHR$(.)):RETURN
  3. 4 PRINT#15,"U1:"2;0;TR;SC:RETURN
  4. 6 PRINT#15,"U2:"2;0;TR;SC:RETURN
  5. 8 PRINT#15,"B-P:"2;PS:RETURN
  6. 10 GET#2,A$:A$=LEFT$(A$+CHR$(.),1):AA=ASC(A$):RETURN
  7. 12 PRINT#2,CHR$(A);:RETURN
  8. 14 :
  9. 16 DIMDI$(29),TY$(14):POKE808,234
  10. 18 POKE53280,.:POKE53281,.:PRINT"[147][153]  ---  [199]EOS [193]UTO-[195]ONVERT [213]TILITY  ---
  11. 20 [153]"(null)HIS PROGRAM WILL  ATTACH A BASIC  CON-
  12. 22 PRINT"VERTER TO THE BEGINNING OF A [199]EOS FILE.
  13. 24 [153]"(null)HE FILE  (null)(null)(null)(null) HAVE THE  HEADER AS  THE
  14. 26 PRINT"FIRST SECTOR OF THE FILE. [193] COPY OF THE
  15. 28 [153]"PROGRAM 'GEOBOOTER' MUST BE ON THE SAME":[153]"DISK.
  16. 30 PRINT"[212]O USE  THIS  PROGRAM INSERT  THE  DISK
  17. 32 [153]"THAT CONTAINS THE  FILES AND PRESS  ANY
  18. 34 PRINT"KEY EXCEPT 'Q' WHICH WILL QUIT TO [194]ASIC
  19. 36 [153]"WITHOUT CONVERTING.  ATN(null)(null)ATN(null)(null)  USE A COPY
  20. 38 PRINT"GEOBOOTER AS THE PROGRAM WILL NOT BE IN
  21. 40 [153]"THE DIRECTORY AFTER CONVERSION.
  22. 42 PRINT"[212]O DECONVERT  A FILE  JUST LOAD IT INTO
  23. 44 [153]"PEEKASIC AND (null)(null)(null) IT.  (null)HE FILE ON THE DISK
  24. 46 PRINT"WILL BE CONVERTED BACK TO A [199]EOS FILE.
  25. 48 [153]"          <<<(null)ATN(null)(null)VAL(null) PEEK(null)ATN(null)(null)VAL(null)>>>":[151]198,.:[146]198,7:[161]A$
  26. 50 [139]A$[178]"Q"[176]A$[178]"(null)"[167]88
  27. 52 :
  28. 54 [133]"LOAD(null)AME OF FILE";NM$:[139][195](NM$)[179]1[176][195](NM$)[177]16[167]88
  29. 56 [129]I[178]1[164][195](NM$):A[178][198]([202](NM$,I,1)):[139]A[179]128[167][130]:[137]62
  30. 58 NM$[178][200](NM$,I[171]1)[170][199](A[171]96)[170][202](NM$,I[170]1):[130]
  31. 60 :
  32. 62 [153]"RIGHT$NSERT STR$ISK AND HIT ANY KEY":[146]198,3:[161]A$
  33. 64 A$[178]"GEOBOOTER,P,R":[141]80:GT$[178]DI$(1):GS$[178]DI$(2):DI$(.)[178][199](.):[141]90
  34. 66 [160]2:A$[178]NM$:[141]80:T$[178]DI$(1):DI$(1)[178]GT$:S$[178]DI$(2):DI$(2)[178]GS$
  35. 68 DI$(.)[178][199](130):DI$(28)[178][199]([198](DI$(28))[170]3):[141]90
  36. 70 TR[178][198](GT$):SC[178][198](GS$):[141]4:PS[178]12:[141]8:NM$[178]NM$[170]",P"[170][199](34)
  37. 72 [129]I[178]1[164][195](NM$):A[178][198]([202](NM$,I,1)):[141]12:[130]:[141]6:[141]4
  38. 74 [129]I[178]1[164]2:[141]10:TR[178][198](A$):[141]10:SC[178][198](A$):[141]4:[130]
  39. 76 A[178][198](T$):[141]12:A[178][198](S$):[141]12:[141]6:[153]"STR$ONE!!!":[137]88
  40. 78 :
  41. 80 [160]15:[159]15,8,15,"I0:":[159]2,8,2,"#":[159]3,8,3,A$:[160]3:[132]15,E1$,E2$
  42. 82 [139]E1$[177]"19"[167][153]E2$:[137]88
  43. 84 A[178]656:[141]2:DS[178]A:A[178]660:[141]2:DO[178]A:TR[178]18:SC[178]DS
  44. 86 [141]4:PS[178]DO:[141]8:[129]I[178].[164]29:[141]10:DI$(I)[178]A$:[130]:[142]
  45. 88 [160]2:[160]15:[151]808,237:[128]
  46. 90 TR[178]18:SC[178]DS:[141]4:PS[178]DO:[141]8:[129]I[178].[164]29:[152]2,[200](DI$(I),1);:[130]
  47. 92 [141]6:[142]
  48.